home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M451.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  4KB  |  186 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     Goto LABEL001
  34.     End
  35.     If (0 == 0) STRING001 = "NO"
  36.     If (0 == 1) STRING001 = "YES"
  37.  
  38.     EndFunc
  39.  
  40.     :LABEL001
  41.     STRING002 = String(PcbNode())
  42.     If (PcbNode() == 0) STRING002 = "A"
  43.     STRING004 = GetEnv(STRING002 + "RECNO")
  44.     STRING004 = ToInteger(STRING004)
  45.     STRING005 = "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  46.     STRING003 = String(Random(1000)) + "X" + STRING002
  47.     DOpen 0, PPEPath() + "USER.DBF", 0
  48.     DnCreate 0, PPEPath() + STRING003 + ".NDX", "HANDLE"
  49.     DGo 0, STRING004
  50.     INTEGER001 = DRecNo(0)
  51.     DGet 0, "LEVEL", STRING006
  52.     DGet 0, "HANDLE", STRING008
  53.     DGet 0, "CASH", INTEGER002
  54.     STRING008 = Mixed(Trim(STRING008, " "))
  55.     INTEGER003 = STRING006 * 645
  56.     :LABEL002
  57.     Cls
  58.     PrintLn 
  59.     PrintLn 
  60.     PrintLn "@X0FVirtual Reality Soldier - @X0AUnderground Name Change@X0F"
  61.     PrintLn STRING005
  62.     PrintLn 
  63.     PrintLn "@X03You enter a dimly lit room, a flickering bulb over the exit on the other"
  64.     PrintLn "@X03side of the room is crackling.  the door suddenly opens and a small, hunched"
  65.     PrintLn "@X03rather smelly fellow walks in.  Roland, the alias man, catches sight of you"
  66.     PrintLn "and strides @X03over.  So, " + STRING008 + ", you want to change your name, eh?"
  67.     PrintLn "These kinds of services don't come cheap my friend, for my time and a new"
  68.     PrintLn "name (with all associated documentation), it will cost you ", INTEGER003, " credits"
  69.     PrintLn 
  70.     InputStr "@X0AYou still interested @X0E(@X0BY@X0E/@X0BN@X0E) _", STRING007, 3, 1, "YN", 0 + 8
  71.     If (STRING007 == "") Goto LABEL002
  72.     If (STRING007 == "N") Goto LABEL004
  73.     If (INTEGER002 < INTEGER003) Then
  74.         PrintLn "@X0ESorry my friend, I don't work for free, and you don't have the cash"
  75.         PrintLn "@X0Ewhy not come see me when you have another ", INTEGER003 - INTEGER002, " credits.@X0F"
  76.         Delay (2 * 182) / 10
  77.     Else
  78.         INTEGER002 = INTEGER002 - INTEGER003
  79.         Newlines 2
  80.         :LABEL003
  81.         Backup 80
  82.         ClrEol
  83.         InputStr "@X0BWhat do you want your new name to be _", STRING007, 10, 25, Mask_Ascii(), 0 + 8
  84.         If (STRING007 == "") Then
  85.             Backup 80
  86.             ClrEol
  87.             Goto LABEL003
  88.         Endif
  89.         STRING007 = Trim(STRING007, " ")
  90.         DTop 0
  91.         DTag 0, STRING003
  92.         DSeek 0, STRING007
  93.         If (DChkStat(0) == 0) Then
  94.             Backup 80
  95.             ClrEol
  96.             Print "@X0CWe've already got a@X0E ", Mixed(STRING007), "@X0C here.  Call yourself something else@X0F"
  97.             Delay (2 * 182) / 10
  98.             DGo 0, INTEGER001
  99.             Goto LABEL003
  100.         Endif
  101.         Backup 80
  102.         ClrEol
  103.         PrintLn "@X03You settle back in the hard backed chair as Roland does his thing.  You "
  104.         PrintLn "@X03are amazed at the databases Roland has available to him, your name"
  105.         PrintLn "@X03change goes through, and you pay Roland.  He takes your money and doesn't"
  106.         PrintLn "@X03even look back as he exits as fast as he came in.@X0F"
  107.         DGo 0, INTEGER001
  108.         DPut 0, "HANDLE", STRING007
  109.         DPut 0, "CASH", INTEGER002
  110.         Delay (2 * 182) / 10
  111.         Goto LABEL004
  112.     Endif
  113.     :LABEL004
  114.     DCloseAll
  115.     Delete PPEPath() + STRING003 + ".NDX"
  116.     End
  117.  
  118. ;------------------------------------------------------------------------------
  119. ;
  120. ; Usage report (before postprocessing)
  121. ;
  122. ; ■ Statements used :
  123. ;
  124. ;    2       End
  125. ;    1       Cls
  126. ;    4       ClrEol
  127. ;    10      Goto 
  128. ;    13      Let 
  129. ;    1       Print 
  130. ;    18      PrintLn 
  131. ;    8       If 
  132. ;    1       Delete 
  133. ;    2       InputStr 
  134. ;    3       Delay 
  135. ;    1       Newlines 
  136. ;    4       Backup 
  137. ;    1       EndFunc
  138. ;    1       DOpen 
  139. ;    1       DCloseAll
  140. ;    1       DnCreate 
  141. ;    1       DTop 
  142. ;    3       DGo 
  143. ;    1       DTag 
  144. ;    1       DSeek 
  145. ;    3       DGet 
  146. ;    2       DPut 
  147. ;
  148. ;
  149. ; ■ Functions used :
  150. ;
  151. ;    4       *
  152. ;    3       /
  153. ;    12      +
  154. ;    2       -
  155. ;    7       ==
  156. ;    1       <
  157. ;    3       !
  158. ;    2       Trim()
  159. ;    1       Random()
  160. ;    2       String()
  161. ;    1       Mask_Ascii()
  162. ;    3       PPEPath()
  163. ;    2       PcbNode()
  164. ;    1       GetEnv()
  165. ;    1       ToInteger()
  166. ;    2       Mixed()
  167. ;    1       DRecNo()
  168. ;    1       DChkStat()
  169. ;
  170. ;------------------------------------------------------------------------------
  171. ;
  172. ; Analysis flags : No flag
  173. ;
  174. ;------------------------------------------------------------------------------
  175. ;
  176. ; Postprocessing report
  177. ;
  178. ;    0       For/Next
  179. ;    0       While/EndWhile
  180. ;    3       If/Then or If/Then/Else
  181. ;    0       Select Case
  182. ;
  183. ;------------------------------------------------------------------------------
  184. ;                 AEGiS Corp - Break the routines, code against the machines!
  185. ;------------------------------------------------------------------------------
  186.